Add cond test cases for singleton clauses.

* test/lisp/emacs-lisp/bytecomp-tests.el: Add test cond forms where
  the default clause is a single non-nil expression.

diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el
index d0b97907389c020dd2e904b977dd3e9edd78a3b1..e8feec31d266e6a167238195f55625da23510353 100644 (file)
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -280,7 +280,13 @@
                          (while l
                            a (setq l nil))
                          'correct)
-                        (t 'incorrect))))
+                        (t 'incorrect)))
+    (let ((a))
+      (cond ((eq a 'foo) 'incorrect)
+            (t)))
+    (let ((a))
+      (cond ((eq a 'foo) 'incorrect)
+            ('correct))))
   "List of expression for test.
 Each element will be executed by interpreter and with
 bytecompiled code, and their results compared.")